#! /usr/bin/perl

use diagnostics;
use strict;

my $localfolder = './compressed/zip';
my $package     = './compressed/zip/a.zip';
my @result      = `unzip -o $package -d $localfolder`;
my @extractedfiles;
foreach my $extracted (@result) {
	if ( $extracted =~ /^ extracting: \.(.*)/ ) {
		chomp($1);
		push( @extractedfiles, $localfolder . $1 );
	}
}
print "@extractedfiles\n";
